home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / AmigaLib / argarray.e < prev    next >
Text File  |  1995-03-30  |  1KB  |  47 lines
  1. OPT MODULE
  2.  
  3. MODULE 'icon',
  4.        'other/split',
  5.        'workbench/startup',
  6.        'workbench/workbench'
  7.  
  8. DEF cxlib_arg, cxlib_dobj:PTR TO diskobject
  9.  
  10. EXPORT PROC argArrayInit(str=NIL)
  11.   DEF argmsg:PTR TO wbstartup, lock=NIL
  12.   IF iconbase=NIL
  13.     RETURN NIL
  14.   ELSEIF argmsg:=wbmessage
  15.     IF argmsg.arglist.lock THEN lock:=CurrentDir(argmsg.arglist.lock)
  16.     cxlib_dobj:=GetDiskObject(argmsg.arglist.name)
  17.     IF lock THEN CurrentDir(lock)
  18.     RETURN IF cxlib_dobj THEN cxlib_dobj.tooltypes ELSE NIL
  19.   ELSE
  20.     RETURN cxlib_arg:=argSplit(str)
  21.   ENDIF
  22. ENDPROC
  23.  
  24. EXPORT PROC argArrayDone()
  25.   IF iconbase
  26.     IF wbmessage
  27.       FreeDiskObject(cxlib_dobj)
  28.     ELSE
  29.       DisposeLink(cxlib_arg)
  30.     ENDIF
  31.   ENDIF
  32. ENDPROC
  33.  
  34. EXPORT PROC argString(tt:PTR TO LONG, entry, defaultstring)
  35.   DEF res=NIL
  36.   IF tt AND (iconbase<>NIL)
  37.     res:=FindToolType(tt, entry)
  38.   ENDIF
  39. ENDPROC IF res THEN res ELSE defaultstring
  40.  
  41. EXPORT PROC argInt(tt:PTR TO LONG, entry, defaultval)
  42.   DEF res=NIL
  43.   IF tt AND (iconbase<>NIL)
  44.     IF res:=FindToolType(tt, entry) THEN StrToLong(res, {defaultval})
  45.   ENDIF
  46. ENDPROC defaultval
  47.